home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / quikcmd3.zip / FASTCMD.LSP < prev    next >
Lisp/Scheme  |  1992-07-05  |  13KB  |  473 lines
  1. ;  FASTCMD.LSP
  2.  ;
  3.  ;                         QUICK COMMAND Release 3.0
  4.  ;                   FASTCMD.LSP is a module of QUICK COMMAND
  5. ;                        Copyright 1989, 90, 92 Dan Jincks
  6.  ;
  7.  ;
  8. ;              This is SHAREWARE, it is NOT Public Domain software.
  9.  ;
  10.  ;              This code or any part of this code may not be reproduced
  11.  ;              in any publication without prior written permission.
  12.  ;
  13.  ;              Printed copy of this code or any part of this code may not
  14.  ;              be distributed without prior written permission.
  15.  ;
  16.  ;              Printed copy may only be made for reference purposes by
  17.  ;              the end user.
  18.  ;
  19.  ;
  20.  ;                               Dan Jincks
  21.  ;                             Box 155A HCR 77
  22.  ;                           Annapolis, MO 63620
  23.  ;
  24.  ;
  25.  ;
  26.  ;   You are granted a limited license to use FASTCMD.LSP for a 30 day trial
  27.  ;   period.  If you wish to continue using any or all of QUICK COMMAND after
  28.  ;   the trial period, you must become a registered user.  As a registered
  29.  ;   user, you may use QUICK COMMAND on 1 workstation or terminal.
  30.  ;   Additional registrations must be bought for each additional workstation or
  31.  ;   terminal.  To become a registered user, see QC3.DOC
  32.  ;
  33.  ;
  34.  ;   You may send copies of QUICK COMMAND to friends and associates if you abide
  35.  ;   by the following rules:
  36.  ;
  37.  ;   1. It may only be distributed in the original unmodified form.
  38.  ;   2. All original files must be included.
  39.  ;   3. No addition files may be added.
  40.  ;   4. If other files will be on the same disk, QUICK COMMAND files must be in
  41.  ;      a library format such as ".ARC" called "QUICKCMD", or else be put alone
  42.  ;      in a subdirectory called "QUICKCMD".
  43.  ;   5. You may not sell QUICK COMMAND or any part of it.
  44.  ;   6. You are not allowed to charge more then $5 to cover the cost of copying
  45.  ;      and distribution.
  46.  ;   7. You may not distribute any hard copy of the contents of QUICK COMMAND.
  47.  ;
  48.  ;
  49.  ;   These AutoLISP commands and functions are designed to save you time, and
  50.  ;   saving time means saving money.  The registration fee is very modest
  51.  ;   compared to the savings, and much less expensive then typical third party
  52.  ;   AutoCAD software. Be sure to registar if you continue to use them.
  53.  ;
  54.  ;
  55.  ;                                                               DAN
  56.  ;
  57.  ;
  58.  ;
  59.  ;
  60.  ;        AutoCAD and AutoLISP are registered trade marks of Autodesk Inc.
  61.  ;
  62.  ;        ***************************************************************
  63.  ;
  64.  ;  Begin FASTCMD.LSP
  65.  ;
  66.  (setq SCMC 1)
  67.  ;
  68.  
  69. ;  TMC function
  70. (defun C:TMC ()
  71.    (if (= SCMC nil)(setq SCMC 0))
  72.    (setq SCMC (abs (- SCMC 1)))
  73.    (if (= SCMC 0)
  74.       (prompt "Menu calling is OFF.")
  75.       (prompt "Menu calling is ON."))(princ)
  76. )
  77.  
  78. ;  Command Alias Functions with menu calling
  79.  
  80. ;  3DF function
  81. (defun C:3DF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DFACE")))
  82.    (command "3DFACE"))
  83.  
  84. ;  3DM function
  85. (defun C:3DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  86.    (command "3DMESH"))
  87.  
  88. ;  3DP function
  89. (defun C:3DP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DPOLY")))
  90.    (command "3DPOLY"))
  91.  
  92. ;  3DS function
  93. (defun C:3DS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D"))))
  94.  
  95. ;  A function
  96. (defun C:A()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARC")))
  97.    (command "ARC"))
  98.  
  99. ;  AA function
  100. (defun C:AA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=AREA")))
  101.    (command "AREA"))
  102.  
  103. ;  AY function
  104. (defun C:AY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARRAY")))
  105.    (command "ARRAY"))
  106.  
  107. ;  B function
  108. (defun C:B()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BREAK")))
  109.    (command "BREAK"))
  110.  
  111. ;  BL function
  112. (defun C:BL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BLOCK")))
  113.    (command "BLOCK"))
  114.  
  115. ;  C function
  116. (defun C:C()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COPY")))
  117.    (command "COPY"))
  118.  
  119. ;  CH function
  120. (defun C:CH()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHANGE")))
  121.    (command "CHANGE"))
  122.  
  123. ;  CF function
  124. (defun C:CF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHAMFER")))
  125.    (command "CHAMFER"))
  126.  
  127. ;  COL function
  128. (defun C:COL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COLOR")))
  129.    (command "COLOR"))
  130.  
  131. ;  CP function
  132. (defun C:CP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHPROP")))
  133.    (command "CHPROP"))
  134.  
  135. ;  CR function
  136. (defun C:CR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CIRCLE")))
  137.    (command "CIRCLE"))
  138.  
  139. ;  D function
  140. (defun C:D()(command "DIST"))
  141.  
  142. ;  DT function
  143. (defun C:DT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DTEXT")))
  144.    (command "DTEXT"))
  145.  
  146. ;  DD function
  147. (defun C:DD()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIVIDE")))
  148.    (command "DIVIDE"))
  149.  
  150. ;  DL function
  151. (defun C:DL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIMLINEAR")))
  152.    (command "DIM"))
  153.  
  154. ;  DM function
  155. (defun C:DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIM")))
  156.    (command "DIM"))
  157.  
  158. ;  DO function
  159. (defun C:DO()(command "DONUT"))
  160.  
  161. ;  DV function
  162. (defun C:DV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DVIEW")))
  163.    (command "DVIEW"))
  164.  
  165. ;  E function
  166. (defun C:E()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ERASE")))
  167.    (command "ERASE"))
  168.  
  169. ;  EDG function
  170. (defun C:EDG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  171.    (command "EDGESURF"))
  172.  
  173. ;  EE function
  174. (defun C:EE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELLIPSE")))
  175.    (command "ELLIPSE"))
  176.  
  177. ;  EV function
  178. (defun C:EV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELEVTHK")))
  179.    (command "ELEV"))
  180.  
  181. ;  F function
  182. (defun C:F()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=FILLET")))
  183.    (command "FILLET"))
  184.  
  185. ;  G function
  186. (defun C:G()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=GRID")))
  187.    (command "GRID"))
  188.  
  189. ;  H function
  190. (defun C:H()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=HATCH")))
  191.    (command "HATCH"))
  192.  
  193. ;  I function
  194. (defun C:I()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=INSERT")))
  195.    (command "INSERT"))
  196.  
  197. ;  IS function
  198. (defun C:IS()(command "ISOPLANE"))
  199.  
  200. ;  L function
  201. (defun C:L()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINE")))
  202.    (command "LINE"))
  203.  
  204. ;  LA function
  205. (defun C:LA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LAYER")))
  206.    (command "LAYER"))
  207.  
  208. ;  LI function
  209. (defun C:LI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIST")))
  210.    (command "LIST"))
  211.  
  212. ;  LM function
  213. (defun C:LM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIMITS")))
  214.    (command "LIMITS"))
  215.  
  216. ;  LT function
  217. (defun C:LT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINETYPE")))
  218.    (command "LINETYPE"))
  219.  
  220. ;  LTS function
  221. (defun C:LTS()(command "LTSCALE"))
  222.  
  223. ;  M function
  224. (defun C:M()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MOVE")))
  225.    (command "MOVE"))
  226.  
  227. ;  ME function
  228. (defun C:ME()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MEASURE")))
  229.    (command "MEASURE"))
  230.  
  231. ;  MI function
  232. (defun C:MI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MINSERT")))
  233.    (command "MINSERT"))
  234.  
  235. ;  MR function
  236. (defun C:MR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MIRROR")))
  237.    (command "MIRROR"))
  238.  
  239. ;  MSL function
  240. (defun C:MSL()(command "MSLIDE"))
  241.  
  242. ;  O function
  243. (defun C:O()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OFFSET")))
  244.    (command "OFFSET"))
  245.  
  246. ;  OS function
  247. (defun C:OS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OSNAPC")))
  248.    (command "OSNAP"))
  249.  
  250. ;  P function
  251. (defun C:P()(command "PAN"))
  252.  
  253. ;  PE function
  254. (defun C:PE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=P0")))
  255.    (command "PEDIT"))
  256.  
  257. ;  PG function
  258. (defun C:PG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POLYGON")))
  259.    (command "POLYGON"))
  260.  
  261. ;  PL function
  262. (defun C:PL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=PLINE")))
  263.    (command "PLINE"))
  264.  
  265. ;  PT function
  266. (defun C:PT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POINT")))
  267.    (command "POINT"))
  268.  
  269. ;  QY function
  270. (defun C:QY()(command "QTEXT" "ON"))
  271.  
  272. ;  QN function
  273. (defun C:QN()(command "QTEXT" "OFF"))
  274.  
  275. ;  R function
  276. (defun C:R()(command "REDRAW"))
  277.  
  278. ;  RA function
  279. (defun C:RA()(command "REDRAWALL"))
  280.  
  281. ;  REV function
  282. (defun C:REV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  283.    (command "REVSURF"))
  284.  
  285. ;  RG function
  286. (defun C:RG()(command "REGEN"))
  287.  
  288. ;  RGA function
  289. (defun C:RGA()(command "REGENALL"))
  290.  
  291. ;  RN function
  292. (defun C:RN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=RENAME")))
  293.    (command "RENAME"))
  294.  
  295. ;  RT function
  296. (defun C:RT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ROTATE")))
  297.    (command "ROTATE"))
  298.  
  299. ;  RUL function
  300. (defun C:RUL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  301.    (command "RULESURF"))
  302.  
  303. ;  SV function
  304. (defun C:SV()(command "SAVE" ""))
  305.  
  306. ;  S function
  307. (defun C:S()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCALE")))
  308.    (command "SCALE"))
  309.  
  310. ;  SCR function
  311. (defun C:SCR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCRIPT")))
  312.    (command "SCRIPT"))
  313.  
  314. ;  SEL function
  315. (defun C:SEL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SELECT")))
  316.    (command "SELECT"))
  317.  
  318. ;  SK function
  319. (defun C:SK()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SKETCH")))
  320.    (command "SKETCH"))
  321.  
  322. ;  SN function
  323. (defun C:SN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SNAP")))
  324.    (command "SNAP"))
  325.  
  326. ;  SO function
  327. (defun C:SO()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SOLID")))
  328.    (command "SOLID"))
  329.  
  330. ;  ST function
  331. (defun C:ST()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STRETCH")))
  332.    (command "STRETCH" "C"))
  333.  
  334. ;  SY function
  335. (defun C:SY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STYLE")))
  336.    (command "STYLE"))
  337.  
  338. ;  T function
  339. (defun C:T()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=TRIM")))
  340.    (command "TRIM"))
  341.  
  342. ;  TAB function
  343. (defun C:TAB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  344.    (command "TABSURF"))
  345.  
  346. ;  UC function
  347. (defun C:UC()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UCS1")))
  348.    (command "UCS"))
  349.  
  350. ;  UN function
  351. (defun C:UN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UNDO")))
  352.    (command "UNDO"))
  353.  
  354. ;  VI function
  355. (defun C:VI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VIEW")))
  356.    (command "VIEW"))
  357.  
  358. ;  VP function
  359. (defun C:VP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VPORTS")))
  360.    (command "VPORTS"))
  361.  
  362. ;  VSL function
  363. (defun C:VSL()(command "VSLIDE"))
  364.  
  365. ;  WB function
  366. (defun C:WB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=WBLOCK")))
  367.    (command "WBLOCK"))
  368.  
  369. ;  X function
  370. (defun C:X()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=EXTEND")))
  371.    (command "EXTEND"))
  372.  
  373. ;  XP function
  374. (defun C:XP()(command "EXPLODE"))
  375.  
  376. ;  Z function
  377. (defun C:Z()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ZOOM")))
  378.    (command "ZOOM"))
  379.  
  380.  
  381. ;  Command Short Cut Functions
  382.  
  383.  
  384. ;  CD function
  385. (defun C:CD() (command "CIRCLE" pause "dia"))
  386.  
  387. ;  EC function  
  388. (defun C:EC() (command "ERASE" "Crossing" ))
  389.  
  390. ;  EL function
  391. (defun C:EL() (command "ERASE" "Last" ""))
  392.  
  393. ;  EW function
  394. (defun C:EW() (command "ERASE" "Window" ))
  395.  
  396. ;  F0 function [F zero]
  397. (defun C:F0() (command "FILLET" "R" "0" "FILLET"))
  398.  
  399. ;  II function
  400. (defun C:II() (command "INSERT" pause pause "" ""))
  401.  
  402. ;  III function
  403. (defun C:III() (command "INSERT" pause pause "" "" ""))
  404.  
  405. ;  PC function
  406. (defun C:PC() (command "PLAN" ""))
  407.  
  408. ;  PU function
  409. (defun C:PU() (command "PLAN" "U"))
  410.  
  411. ;  PW function
  412. (defun C:PW() (command "PLAN" "W"))
  413.  
  414. ;  U3 function
  415. (defun C:U3() (command "UCS" "3"))
  416.  
  417. ;  UE function
  418. (defun C:UE() (command "UCS" "E"))
  419.  
  420. ;  UV function
  421. (defun C:UV() (command "UCS" "V"))
  422.  
  423. ;  UX function
  424. (defun C:UX() (command "UCS" "X"))
  425.  
  426. ;  UY function
  427. (defun C:UY() (command "UCS" "Y"))
  428.  
  429. ;  UZ function
  430. (defun C:UZ() (command "UCS" "Z"))
  431.  
  432. ;  VD function
  433. (defun C:VD() (command "VIEW" "Delete"))
  434.  
  435. ;  VE function
  436. (defun C:VE() (command "VIEW" "R" "E"))
  437.  
  438. ;  VR function
  439. (defun C:VR() (command "VIEW" "Restore"))
  440.  
  441. ;  VS function
  442. (defun C:VS() (command "VIEW" "Save"))
  443.  
  444. ;  VV function
  445. (defun C:VV() (command "VIEW" "?"))
  446.  
  447. ;  V1 function
  448. (defun C:V1() (command "VIEW" "R" "1"))
  449.  
  450. ;  V2 function
  451. (defun C:V2() (command "VIEW" "R" "2"))
  452.  
  453. ;  V3 function
  454. (defun C:V3() (command "VIEW" "R" "3"))
  455.  
  456. ;  V4 function
  457. (defun C:V4() (command "VIEW" "R" "4"))
  458.  
  459. ;  ZE function
  460. (defun C:ZE() (command "ZOOM" "E"))
  461.  
  462. ;  ZP function
  463. (defun C:ZP() (command "ZOOM" "P"))
  464.  
  465. ;  ZW function
  466. (defun C:ZW() (command "ZOOM" "W"))
  467.  
  468. ;  B1 function
  469. (defun C:B1() (prompt " Break at a single point.")(terpri)
  470.               (command "BREAK" pause "F" pause "@0,0"))
  471.  ;
  472.  ;   End FASTCMD.LSP
  473.